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AdjjlSlVI Iddjll 

jjSla (JSd jSlj lilldaoll JlSd jo — AjjjjjSlV! Ad^Lol! 
jjSI j! j^add dd dC-jj d^j (JjLuij JLuij! — ^ijjssiyt d^iii 
AdjjjSlV! JaSLo jll J^ld jo jisi j! J^id JaUj - ,^1 flllLdVI 

iS> Id jo jliS! j! (joadd dd Aldlo j An mo l\ oK jdj — LdAftllj 1 —Uo ll 

AdjjlSlV! JaSLojll 

— (jijjisiyi jofi o iit 

AdjjlSlV! JajLuijll Jlild jo jlS! j! joadd dd Adl^C. j Adooo dlLojLto jdj 

^jjjl£lVI ^4ftHll jLLa-a (JA (iluiil ^Adj uLS 

liL Aj^aldl! Jjoll A ^,| lil jLoJ V • 
l^aldlol L-Jxo^j j... A-alS ^1 ' r I • 
Aj^ald diUUj jdi ad • 
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dllLu ^1 true-false Aollajo jjjLi 

AjoSjI! j! AjSjal! dlUbJ! *- LduaJ dial ^jdjj V dlLjbj 

_ boolean - date - object ^>11 <J£q 

string, char c 3 l> AojLuia dUloci L^jIcj ?.!ja! V ljUUj 
integer , single igjb AojLuiall dUloxll 9. 1jal dLiLu 

fljSbll jo jbj ^jj (JS Lfrallaj (^glll b!iLal! Jdi Aj d*oaii 
jbjl! jj i ^ ima Aj jdoll A.o.i'a.11 ^xoaSVIj ^gjjV! dal! Aj daL 
A ojqll (jdoj jial! Jdaj 

255 -0 jo A’ioiA jdo 
SjSbl! jo (byte) 4 t^iijdjll eJJa 

mAjf* A iJ (JSL.I 


mm 


dULull ^1 jl! 3 


dULull 4 

Cjl-< oil 

AoSjail dUbol! 5 
Aoofljll dULull 6 

Ja^II 7 " 

jdoll 8 

jLull 9 

byte £jllt 10 
integer 11 

Li! jJuol! — 
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Msg Box ("Welcome"&Vbcrlf&"ln"& "Beni Suef") 
il Ja.jlMsg Box Welcome 
|Tn Beni Suefl 


Dim n , product as integer 

Dim str as string 

Textbox . text = "" 

For N = 1 to 12 

Str= 3 &"x"& n &"=" 

Product =3*n 

txtbox.text = txtbox.text& str & product&vbcrlf 
Next 

3 ujUa JjJa. 

3x1=3 

3X2 =6 

3X4=12 

// 

II 

3X12=36 

O 

N = 2 

Str= 3 &"x"& n &"=" 

Product =3*n 3X2=6 

txtbox.text = str & product 

D 

Dim n as integer 

For n = 0 to 3 

Lbl.text=lbl.text & n 

Next 012 3 

o 

cn 

Dim n as integer 

For n = 2 to 8 step 2 
Lbl.text=lbl.text & n 

Next 2 4 6 8 

O 

Dim n as integer 

For n = 1 to 8 ste$%/\\ 1 
Lbl.text=lbl.text &. n 

Next |l 3 5 7| 

O 

VI 

Dim n,sum as integer 

For n = 2 to 8 step 2 

Sum = sum + n 

Next 

Msg box (sum ) |20| 

o 

Dim n,sum as integer 

For n = 1 to 8 step 2 

Sum = sum + n 

Next 

Msg box (sum ) |l6| 

O 

00 

Dim n as integer 

N = 5 

Do while n< = 10 

Lbl.text=lbl.text & n 

N = n + 2 

Next 

o 

Dim n as integer 

N = 6 

Do while n< 12 

Lbl.text=lbl.text & n 

N = n + 2 

Next |6 8 101 

O 

ID 

Dim n,sum as integer 

N = 4 

Do while n< = 8 

Sum = sum + n 

N = n + 2 

Next 

Msg box (sum ) U 

o 

Dim n,sum as integer 

N = 3 

Do while n < = 8 

Sum = sum + n 

N = n + 2 

Next 

Msg box (sum ) |X5| 

o 

Dim K as long =3 

Do while k < = 8 

Sum = sum + K 

K = k + 2 

Next 

Msgbox (k) § 

o 

Dim a as long 

For a = 2 to 10 step -2 

Sum = sum + a 

Next 

Msgbox (a) U; 

O 

Sub even (by val m as long, by val k as long ) 

Dim y as integer 

For y = m to k step 2 

Label.text = label.text & y 

Next 

End sub 

M 

even jjaluJ! 

for next long m, k 

2 aJbjJl k Aaalgj m Aaat-iJ y AajIjSaJl AlixSl Jl-iC- 
Label.text = label.text &. y 

Even (6,10) | 6,8,10 

function total (by val m as short) as decimal 

Dim w as single 

W = m + 20 

Return w 

End function 

h-> 

decimal total . £jia*al Jaluill ££^1 

single w - short m 

end function - function CP C£PY t 

Label .text = total (5) 

Label.text = 25 gSUll 


30 4-aaUla m CP £>^1 

Const m as byte = 30 

91 

cjULu JIajV b CP 0^' 

dim b as string 

77 

2005/4/12 d Caia CP 

Const d as date =#2005/4/12# 

62 

m CP 6^' 

Dim m as date 

78 

true t CP 

Const t as Boolean = true 

93 

g J** 1 * CP 6^' 
Dim g as integer 

79 

sLaalil n duu cp 0^1 

const n as string ="j^" 

94 

h CP 

Dim h as Boolean 

80 

12.5 4-aaj^U p CP 0^' 

Const p as single = 12.5 

95 

jp k CP 0^1 

dim k as single 

81 

listbox ^ ^ 4iUa! 

Listbox.items.add( <jV) 

96 

m jailall 3 4 

M = 3 

82 

listbox SUI CP cii*. 

Listbox.items.clear () 

97 

2 A afttla b jaiiaJl A-aaS Sjlaj 

B = b + 2 

83 

listbox Lf& JjS 

Listbo.selceted index(l) 

98 

SUVI u^\ g A-aa2 
Label.text= g label 

84 

Textb^x J Tex^^^ ^ 

99 

text box SUV! 4 oa^aaJi 

w 

W= textbox. Text 

85 

"uflaj^ai ^aa" lAljaa-a AjLuij jl^Jal 

Msgbox iPi") 

II 

D = 3*4 /2 A 2 - 2+5 

D = 3*4 /4 - 2+5 

D = 12 /4 - 2+5 

D = 3 - 2+5h 

D = 1+5 

D = 6 

|M 

O 

Im 

£uU!) 

13 mod 5 = 3 

10 mod 5 = 0 

8 mod 2 =0 

9 mod 2 = 1 

86 

£talal) 

Dim d , m as integer 

D= 3*2 

M=2 A 3 

If d < m then 

M 

o 

ISJ 

£uU!) 

Dim d , m as integer 

D= 3*2 

M=2 A 3 

If d > m then 

87 

D - 10 

M= 15 25 

u = 1U 


M= 15 

End if 

14 

End if 

Label.text = m + d 

Label.text = m + d 

£uUI) 

Dim d , m as integer 

Dim c as string 

D= 10 

M=6 

If d < m then 

D = 5 

M- 1 

|M 

O 

lui 

£uU!) 

Dim d , m as integer 

Dim c as string 

D= 10 

M=6 

If d > m then 

D = 5 

M- 1 

88 

Else 6x3=18 

Else 5x 4 = 20 

D = 6 

M= 3 

End if 

c= d 8i"x"& M &"="8i d*m 

D = 6 - 

M= 3 

End if 

c= d &"x"& M&"="& d*m 

Dim h As Integer = 4 A 2+5 

Select Case h 

IM 

o 

Us. 

Dim B As lnteger= 10+2*3 
Select Case B 

Case is > = 30 
Msgbox("j^Aa") 

Case is >= 25 

Msgbox("'«4 J+>") 

Case is >= 20 

Msgbox(" Aa*") 

Case else 

Msgbox(" Jjj^") 

89 

Case is > - 30 

Msgbox( 4 * 3) ^ 

Case is >= 25 2 

Msgbox( 2+ 4 ) 

Case is >= 20 

Msgbox( 8 / 4 ) 

Case else 

Msgbox( 5*2 ) 

End if 

tna it 

Jjaia 

Msg Box ( ,, Welcome ,, &"ln"&"B 
Msg Box (Welcome In Beni Sue 

eni Suef") gaLiJI « 4 j! 

f) 

90 
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